home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / docs / help / arexxbegin.lha / ARexx_For_Beginners / Articles_01-10 / Testprogram.guide < prev   
Encoding:
Text File  |  1996-10-25  |  336 b   |  13 lines
  1. /* A test ARexx Program for Multiview/Amigaguide */
  2.  
  3. CALL CLOSE('STDOUT')
  4. CALL OPEN('STDOUT','CON:50/60/510/70/TEST WINDOW FOR MULTIVIEW AREXX PROGRAM')
  5. SAY 'a'x||' This is an ARexx program launched from Multiview/Amigaguide'
  6. SAY 'a'x'        This window should  go away in 4 seconds.'
  7.  
  8. DO WHILE TIME('E') < 4
  9. END
  10.  
  11. CLOSE('STDOUT')
  12. EXIT
  13.